Dim regshell As Object, DefaultBrowser As String
Set regshell = CreateObject("Wscript.Shell")

DefaultBrowser = regshell.regread("HKEY_CLASSES_ROOT\HTTP\shell\open\command\")
' Reads the registry value where is stored the default application to use with HTTP

DefaultBrowser = Left(DefaultBrowser, InStr(1, DefaultBrowser, ".exe", vbTextCompare) + 4)
' Removes shell parameters after the actual path, preserving only path included in double quotes

DefaultBrowser = Replace(DefaultBrowser, Chr(34), vbNullString)
' Removes double quotes (")